unit UUsuario;

interface

type TUsuario = class(TObject)

   private
      idUsuario : Integer;
      nomeUsuario : String;
      senhaUsuario : String;

   public
      procedure setIdUsuario(idUsuario : Integer);
      function getIdUsuario : Integer;

      procedure setNomeUsuario(nomeUsuario : String);
      function getNomeUsuario : String;

      procedure setSenhaUsuario(senhaUsuario : String);
      function getSenhaUsuario : String;
end;

implementation

procedure setIdUsuario(idUsuario : Integer);
begin
   self.idUsuario := idUsuario;
end;

function getIdUsuario : Integer;
begin
   result := self.idUsuario;
end;

procedure setNomeUsuario(nomeUsuario : String);
begin
   self.nomeUsuario := nomeUsuario;
end;

function getNomeUsuario : String;
begin
   result := self.nomeUsuario;
end;

procedure setSenhaUsuario(senhaUsuario : String);
begin
   self.senhaUsuario := senhaUsuario;
end;

function getSenhaUsuario : String;
begin
   result := self.senhaUsuario;
end;

end.
